home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Programming / yaec / modules / rexxsyslib.e < prev    next >
Encoding:
Text File  |  2001-08-12  |  1.2 KB  |  20 lines
  1. OPT MODULE
  2. OPT EXPORT
  3. -> Module created with E:bin/fd2module from YAECv18 package.
  4. OPT NDDC
  5. -> --- functions in V33 or higher (Release 1.2) ---
  6. -> 
  7. #macro CreateArgstring(string,length) IS Stores(rexxsysbase,string,length) BUT Loads(A6,A0,D0) BUT ASM ' jsr -126(a6)'
  8. #macro DeleteArgstring(argstring) IS (A0:=argstring) BUT (A6:=rexxsysbase) BUT ASM ' jsr -132(a6)'
  9. #macro LengthArgstring(argstring) IS (A0:=argstring) BUT (A6:=rexxsysbase) BUT ASM ' jsr -138(a6)'
  10. #macro CreateRexxMsg(port,extension,host) IS Stores(rexxsysbase,port,extension,host) BUT Loads(A6,A0,A1,D0) BUT ASM ' jsr -144(a6)'
  11. #macro DeleteRexxMsg(packet) IS (A0:=packet) BUT (A6:=rexxsysbase) BUT ASM ' jsr -150(a6)'
  12. #macro ClearRexxMsg(msgptr,count) IS Stores(rexxsysbase,msgptr,count) BUT Loads(A6,A0,D0) BUT ASM ' jsr -156(a6)'
  13. #macro FillRexxMsg(msgptr,count,mask) IS Stores(rexxsysbase,msgptr,count,mask) BUT Loads(A6,A0,D0,D1) BUT ASM ' jsr -162(a6)'
  14. #macro IsRexxMsg(msgptr) IS (A0:=msgptr) BUT (A6:=rexxsysbase) BUT ASM ' jsr -168(a6)'
  15. -> 
  16. -> 
  17. #macro LockRexxBase(resource) IS (D0:=resource) BUT (A6:=rexxsysbase) BUT ASM ' jsr -450(a6)'
  18. #macro UnlockRexxBase(resource) IS (D0:=resource) BUT (A6:=rexxsysbase) BUT ASM ' jsr -456(a6)'
  19. -> 
  20.